home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Visual Basic Source Code
/
Visual Basic Source Code.iso
/
vbsource
/
contro2r
/
form1.frm
< prev
next >
Wrap
Text File
|
1999-04-06
|
15KB
|
478 lines
VERSION 5.00
Begin VB.Form Form1
BorderStyle = 1 'Fixed Single
Caption = "My DataBase Record"
ClientHeight = 4320
ClientLeft = 150
ClientTop = 720
ClientWidth = 6705
LinkTopic = "Form1"
MaxButton = 0 'False
ScaleHeight = 4320
ScaleWidth = 6705
StartUpPosition = 3 'Windows Default
Begin VB.Frame Frame4
Caption = "Icon"
BeginProperty Font
Name = "Times New Roman"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 975
Left = 5160
TabIndex = 14
Top = 0
Width = 1455
Begin VB.Image Image1
DataField = "Icon"
DataSource = "Data1"
Height = 615
Left = 360
Stretch = -1 'True
Top = 240
Width = 735
End
End
Begin VB.Frame Frame3
Caption = "Control Station"
BeginProperty Font
Name = "Times New Roman"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 2775
Left = 4560
TabIndex = 7
Top = 1440
Width = 2055
Begin VB.CommandButton killit
Caption = "&KILL"
BeginProperty Font
Name = "Times New Roman"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 735
Left = 1080
Picture = "Form1.frx":0000
Style = 1 'Graphical
TabIndex = 13
ToolTipText = "Delete File"
Top = 1920
Width = 855
End
Begin VB.CommandButton load
Caption = "&Load"
BeginProperty Font
Name = "Times New Roman"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 735
Left = 120
Picture = "Form1.frx":0442
Style = 1 'Graphical
TabIndex = 12
ToolTipText = "Load Record Into Database"
Top = 1920
Width = 855
End
Begin VB.CommandButton seek
BackColor = &H00C0C0C0&
Caption = "&Seek"
BeginProperty Font
Name = "Times New Roman"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 735
Left = 1080
Picture = "Form1.frx":0884
Style = 1 'Graphical
TabIndex = 11
ToolTipText = "Seek For *ico and load it"
Top = 1080
Width = 855
End
Begin VB.CommandButton delete
BackColor = &H00C0C0C0&
Caption = "&Delete"
BeginProperty Font
Name = "Times New Roman"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 735
Left = 120
Picture = "Form1.frx":0CC6
Style = 1 'Graphical
TabIndex = 10
ToolTipText = "Delete Record"
Top = 1080
Width = 855
End
Begin VB.CommandButton saveme
Caption = "&Save"
Enabled = 0 'False
BeginProperty Font
Name = "Times New Roman"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 735
Left = 1080
Picture = "Form1.frx":0FD0
Style = 1 'Graphical
TabIndex = 9
ToolTipText = "Save To Database"
Top = 240
Width = 855
End
Begin VB.CommandButton clear
Caption = "&Clear"
BeginProperty Font
Name = "Times New Roman"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 735
Left = 120
Picture = "Form1.frx":1412
Style = 1 'Graphical
TabIndex = 8
ToolTipText = "Clear The Database"
Top = 240
Width = 855
End
End
Begin VB.Frame Frame2
Caption = "Source File"
BeginProperty Font
Name = "Times New Roman"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 2775
Left = 120
TabIndex = 3
Top = 1440
Width = 4335
Begin VB.FileListBox File1
Height = 2430
Left = 2160
MultiSelect = 2 'Extended
Pattern = "*.ico"
TabIndex = 6
Top = 240
Width = 2055
End
Begin VB.DirListBox Dir1
Height = 1890
Left = 120
TabIndex = 5
Top = 600
Width = 1935
End
Begin VB.DriveListBox Drive1
Height = 315
Left = 120
TabIndex = 4
Top = 240
Width = 1935
End
End
Begin VB.Data Data1
BackColor = &H80000006&
Caption = " My DataBase Record"
Connect = "Access"
DatabaseName = ""
DefaultCursorType= 0 'DefaultCursor
DefaultType = 2 'UseODBC
Exclusive = 0 'False
BeginProperty Font
Name = "Times New Roman"
Size =